home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1463.dms / var1463.adf / BBBBS72.lha / rexx / baud.rexx < prev    next >
OS/2 REXX Batch file  |  1993-08-14  |  409b  |  25 lines
  1. /* Baud.rexx */
  2.  
  3. ARG screenflag .
  4.  
  5. IF ~SHOW('P','BAUD') THEN
  6.   DO
  7.     SAY ' *** BaudBandit MUST be running FIRST before you start BBBBS!'
  8.     RETURN(0);
  9.   END
  10.  
  11. ADDRESS 'BAUD'
  12. IF screenflag='OFF' THEN
  13.   DO
  14.     IF GETCLIP('BBS_fkeyhelp')=1 THEN CALL PostMsg()
  15.     Screen OFF
  16.     CALL SETCLIP('BBS_screen',0)
  17.     CALL SETCLIP('BBS_fkeyhelp')
  18.   END
  19. ELSE
  20.   DO
  21.     Screen ON
  22.     CALL SETCLIP('BBS_screen',1)
  23.   END
  24.  
  25.